您的訂閱是我製作影片的動力
訂閱點這裡~
若內容有誤,還請留言指正,謝謝您的指教
#影片程式碼
library(forecast)#AUTO-ARIMA
library(tseries) #adf kpss test
library(dplyr)# mutate %>%
data <- read.csv(file="D:\\1218股價.csv",header=TRUE,sep=",")
歷史資料 <- subset(data,data$年月<=201912)
對照組 <- subset(data,data$年月>=202001)
#資料觀察
時序格式 <- ts(歷史資料$加權股價, frequency=12, start=c(2010,01))
拆解 <- decompose(時序格式)
plot(拆解)
檔案下載處:
https://drive.google.com/drive/u/1/folders/1QIRQIvqYF0C37gfGURHMoSElh_6BYUr6
資料來源:
https://www.twse.com.tw/zh/